
**** Replication file ****
*When to not respond in kind? Individuals' expectations of the future and their support for reciprocity in foreign policy
*Osman Sabri Kiratli & Sabri Arhan Ertan
*POBE

************************************************************************************
*** Manuscript
************************************************************************************
use "Kiratli_Ertan 2022 - data.dta"

*** Table-2 ***

* M1 US - UN vignette
mixed coopun ib3.xsignalun ec_worry trust_UN ib8.xsourceun sex education age if country == 2 || id: ,vce(robust)

* M2 US - Trade vignette
mixed revcooptrade ib3.xsignaltrade ec_worry support_ft ib8.xsourcetrade sex education age if country == 2 || id: ,vce(robust)

* M3 Turkey - UN vignette
mixed coopun ib3.xsignalun ec_worry trust_UN ib8.xsourceun sex education age if country == 1 || id: ,vce(robust)

* M4 Turkey - Trade vignette
mixed revcooptrade ib3.xsignaltrade ec_worry trust_MNCs ib8.xsourcetrade sex education age if country == 1 || id: ,vce(robust)


*** Figure-1 ***

mixed coopun ib3.xsignalun ib8.xsourceun if country == 2 || id: ,vce(robust)
estimates store US
mixed coopun ib3.xsignalun ib8.xsourceun if country == 1 || id: ,vce(robust)
estimates store Turkey
coefplot US Turkey , xline(0) keep(*.xsignalun) omitted base

mixed revcooptrade ib3.xsignaltrade ib8.xsourcetrade if country == 2 || id: ,vce(robust)
estimates store US
mixed revcooptrade ib3.xsignaltrade ib8.xsourcetrade if country == 1 || id: ,vce(robust)
estimates store Turkey
coefplot US Turkey , xline(0) keep(*.xsignaltrade) omitted base


*** Figure-2 ***

melogit relaxedrec1 ib2.xa1##i.country i.xsourceun || id: ,vce(robust)
margins xa1, at (country==2) post
estimates store US
melogit relaxedrec1 ib2.xa1##i.country i.xsourcetrade || id: ,vce(robust)
margins xa1, at (country==1) post
estimates store Turkey
coefplot US Turkey , omitted base

melogit relaxedrec2 ib2.xb1##i.country i.xsourceun || id: ,vce(robust)
margins xb1, at (country==2) post
estimates store US
melogit relaxedrec2 ib2.xb1##i.country i.xsourcetrade || id: ,vce(robust)
margins xb1, at (country==1) post
estimates store Turkey
coefplot US Turkey , omitted base


*** Figure-3 ***

* US - UN vignette
melogit relaxedrec1 ib2.xa1##ec_worry i.xsourceun if country == 2 ||id:,vce(robust)
margins ec_worry, at (xa1=(1)) post
estimates store decrease
melogit relaxedrec1 ib2.xa1##ec_worry i.xsourceun if country == 2 ||id:,vce(robust)
margins ec_worry, at (xa1=(3)) post
estimates store increase
coefplot decrease increase , drop(_cons) omitted baselevels xline(.3882909)

* US - Trade vignette
melogit relaxedrec2 ib2.xb1##ec_worry i.xsourcetrade if country == 2 ||id:,vce(robust)
margins ec_worryQ49, at (xb1=(1)) post
estimates store decrease
melogit relaxedrec2 ib2.xb1##ec_worry i.xsourcetrade if country == 2 ||id:,vce(robust)
margins ec_worry, at (xb1=(3)) post
estimates store increase
coefplot decrease increase , drop(_cons) omitted baselevels xline(.477332)

* TR - UN vignette
melogit relaxedrec1 ib2.xa1##ec_worry i.xsourceun if country == 1 ||id:,vce(robust)
margins ec_worry, at (xa1=(1)) post
estimates store decrease
melogit relaxedrec1 ib2.xa1##ec_worry i.xsourceun if country == 1 ||id:,vce(robust)
margins ec_worry, at (xa1=(3)) post
estimates store increase
coefplot decrease increase , drop(_cons) omitted baselevels xline(.34375 )

* TR - Trade vignette
melogit relaxedrec2 ib2.xb1##ec_worry i.xsourcetrade if country == 1 ||id:,vce(robust)
margins ec_worryQ49, at (xb1=(1)) post
estimates store decrease
melogit relaxedrec2 ib2.xb1##ec_worry i.xsourcetrade if country == 1 ||id:,vce(robust)
margins ec_worry, at (xb1=(3)) post
estimates store increase
coefplot decrease increase , drop(_cons) omitted baselevels xline(.5757325)




***Appendix***


*** Table-A-3a ***

* US - UN vignette M1 & M2
melogit relaxedrec1 ib2.xa1##ib3.ec_worry ib8.xsourceun if country == 2 ||id: ,vce(robust)
melogit relaxedrec1 ib2.xa1##ib3.ec_worry ib8.xsourceun age sex education trust_UN if country == 2 ||id:,vce(robust)

* Turkey - UN vignette M3 & M4
melogit relaxedrec1 ib2.xa1##ib3.ec_worry ib8.xsourceun if country == 1 ||id:,vce(robust)
melogit relaxedrec1 ib2.xa1##ib3.ec_worry ib8.xsourceun age sex education trust_UN if country == 1 ||id:,vce(robust)


*** Table-A-3b ***
* M3  US - Trade vignette M1 & M2
melogit relaxedrec2 ib2.xb1##ib3.ec_worry ib8.xsourcetrade if country == 2 ||id:,vce(robust)
melogit relaxedrec2 ib2.xb1##ib3.ec_worry ib8.xsourcetrade age sex education support_ft if country == 2 ||id:,vce(robust)

* M4  Turkey - Trade vignette M3 & M4
melogit relaxedrec2 ib2.xb1##ib3.ec_worry ib8.xsourcetrade  if country == 1 ||id:,vce(robust)
melogit relaxedrec2 ib2.xb1##ib3.ec_worry ib8.xsourcetrade age sex education trust_MNCs if country == 1 ||id:,vce(robust)


*** Table-A-4 ***

ttest  relaxedrec1 if ((xa1==1 & ec_worry==5) | (xa1==1 & ec_worry==1)) & country == 2, by (ec_worry)
ttest  relaxedrec1 if ((xa1==3 & ec_worry==5) | (xa1==3 & ec_worry==1)) & country == 2, by (ec_worry)
ttest  relaxedrec1 if ((xa1==1 & ec_worry==2) | (xa1==1 & ec_worry==4)) & country == 2, by (ec_worry)
ttest  relaxedrec1 if ((xa1==3 & ec_worry==2) | (xa1==3 & ec_worry==4)) & country == 2, by (ec_worry)

ttest  relaxedrec2 if ((xb1==1 & ec_worry==5) | (xb1==1 & ec_worry==1)) & country == 2, by (ec_worry)
ttest  relaxedrec2 if ((xb1==3 & ec_worry==5) | (xb1==3 & ec_worry==1)) & country == 2, by (ec_worry)
ttest  relaxedrec2 if ((xb1==1 & ec_worry==2) | (xb1==1 & ec_worry==4)) & country == 2, by (ec_worry)
ttest  relaxedrec2 if ((xb1==3 & ec_worry==2) | (xb1==3 & ec_worry==4)) & country == 2, by (ec_worry)

ttest  relaxedrec1 if ((xa1==1 & ec_worry==5) | (xa1==1 & ec_worry==1)) & country == 1, by (ec_worry)
ttest  relaxedrec1 if ((xa1==3 & ec_worry==5) | (xa1==3 & ec_worry==1)) & country == 1, by (ec_worry)
ttest  relaxedrec1 if ((xa1==1 & ec_worry==2) | (xa1==1 & ec_worry==4)) & country == 1, by (ec_worry)
ttest  relaxedrec1 if ((xa1==3 & ec_worry==2) | (xa1==3 & ec_worry==4)) & country == 1, by (ec_worry)

ttest  relaxedrec2 if ((xb1==1 & ec_worry==5) | (xb1==1 & ec_worry==1)) & country == 1, by (ec_worry)
ttest  relaxedrec2 if ((xb1==3 & ec_worry==5) | (xb1==3 & ec_worry==1)) & country == 1, by (ec_worry)
ttest  relaxedrec2 if ((xb1==1 & ec_worry==2) | (xb1==1 & ec_worry==4)) & country == 1, by (ec_worry)
ttest  relaxedrec2 if ((xb1==3 & ec_worry==2) | (xb1==3 & ec_worry==4)) & country == 1, by (ec_worry)

*** Figure-A-5 ***
meologit relaxedrec1  ib2.xa1##c.ec_worry ib8.xsourceun if country == 1|| id:
margins, dydx(ec_worry) at(xa1=(1(1)3)) post predict(outcome(1))
est sto UN
meologit relaxedrec2  ib2.xb1##c.ec_worry ib8.xsourcetrade if country == 1|| id:
margins, dydx(ec_worry) at(xb1=(1(1)3)) post predict(outcome(1))
est sto Trade
coefplot UN Trade, drop(_cons *xsourceun *xsourcetrade) xline(0)  omitted baselevels title("US")

meologit relaxedrec1  ib2.xa1##c.ec_worry ib8.xsourceun if country == 2|| id:
margins, dydx(ec_worry) at(xa1=(1(1)3)) post predict(outcome(1))
est sto UN
meologit relaxedrec2  ib2.xb1##c.ec_worry ib8.xsourcetrade if country == 2|| id:
margins, dydx(ec_worry) at(xb1=(1(1)3)) post predict(outcome(1))
est sto Trade
coefplot UN Trade, drop(_cons *xsourceun *xsourcetrade) xline(0)  omitted baselevels title("Turkey")

*** Table-A-6 ***

* US - UN vignette
melogit relaxedrec1 ib2.xa1##ib8.xsourceun age sex education trust_UN if country == 2 ||id:

* US - Trade vignette
melogit relaxedrec2 ib2.xb1##ib8.xsourcetrade age sex education support_ft if country == 2 ||id:

* Turkey - UN vignette
melogit relaxedrec1 ib2.xa1##ib8.xsourceun age sex education trust_UN if country == 1 ||id:

* Turkey - Trade vignette
melogit relaxedrec2 ib2.xb1##ib8.xsourcetrade age sex education trust_MNCs if country == 1 ||id:

*** Table-A-7 ***

* US - UN vignette
melogit relaxedrec1 ib2.xa1##ib3.pessimism ib8.xsourceun age sex education trust_UN if country == 2 ||id:

* US - Trade vignette
melogit relaxedrec2 ib2.xb1##ib3.pessimism ib8.xsourcetrade age sex education support_ft if country == 2 ||id:

* Turkey - UN vignette
melogit relaxedrec1 ib2.xa1##ib3.pessimism ib8.xsourceun age sex education trust_UN if country == 1 ||id:

* Turkey - Trade vignette
melogit relaxedrec2 ib2.xb1##ib3.pessimism ib8.xsourcetrade age sex education trust_MNCs if country == 1 ||id:


*** Table-A-9a ***
* US - UN vignette
melogit perfectrec1 ib2.xa1##ib3.ec_worry ib8.xsourceun age sex education trust_UN if country == 2 ||id:

* US - Trade vignette
melogit perfectrec2 ib2.xb1##ib3.ec_worry ib8.xsourcetrade age sex education support_ft if country == 2 ||id:

* Turkey - UN vignette
melogit perfectrec1 ib2.xa1##ib3.ec_worry ib8.xsourceun age sex education trust_UN if country == 1 ||id:

* Turkey - Trade vignette
melogit perfectrec2 ib2.xb1##ib3.ec_worry ib8.xsourcetrade age sex education trust_MNCs if country == 1 ||id:

*** Table-A-9b ***
ttest  perfectrec1 if ((xa1==1 & ec_worry==5) | (xa1==1 & ec_worry==1)) & country == 2, by (ec_worry)
ttest  perfectrec1 if ((xa1==3 & ec_worry==5) | (xa1==3 & ec_worry==1)) & country == 2, by (ec_worry)
ttest  perfectrec1 if ((xa1==1 & ec_worry==2) | (xa1==1 & ec_worry==4)) & country == 2, by (ec_worry)
ttest  perfectrec1 if ((xa1==3 & ec_worry==2) | (xa1==3 & ec_worry==4)) & country == 2, by (ec_worry)

ttest  perfectrec2 if ((xb1==1 & ec_worry==5) | (xb1==1 & ec_worry==1)) & country == 2, by (ec_worry)
ttest  perfectrec2 if ((xb1==3 & ec_worry==5) | (xb1==3 & ec_worry==1)) & country == 2, by (ec_worry)
ttest  perfectrec2 if ((xb1==1 & ec_worry==2) | (xb1==1 & ec_worry==4)) & country == 2, by (ec_worry)
ttest  perfectrec2 if ((xb1==3 & ec_worry==2) | (xb1==3 & ec_worry==4)) & country == 2, by (ec_worry)

ttest  perfectrec1 if ((xa1==1 & ec_worry==5) | (xa1==1 & ec_worry==1)) & country == 1, by (ec_worry)
ttest  perfectrec1 if ((xa1==3 & ec_worry==5) | (xa1==3 & ec_worry==1)) & country == 1, by (ec_worry)
ttest  perfectrec1 if ((xa1==1 & ec_worry==2) | (xa1==1 & ec_worry==4)) & country == 1, by (ec_worry)
ttest  perfectrec1 if ((xa1==3 & ec_worry==2) | (xa1==3 & ec_worry==4)) & country == 1, by (ec_worry)

ttest  perfectrec2 if ((xb1==1 & ec_worry==5) | (xb1==1 & ec_worry==1)) & country == 1, by (ec_worry)
ttest  perfectrec2 if ((xb1==3 & ec_worry==5) | (xb1==3 & ec_worry==1)) & country == 1, by (ec_worry)
ttest  perfectrec2 if ((xb1==1 & ec_worry==2) | (xb1==1 & ec_worry==4)) & country == 1, by (ec_worry)
ttest  perfectrec2 if ((xb1==3 & ec_worry==2) | (xb1==3 & ec_worry==4)) & country == 1, by (ec_worry)

*** Table B-2 ***

***M1 cooperation - UN ***
mixed coopun ib2.xa1##i.country c.ec_worry##i.country c.trust_UN##i.country i.country##ib8.xsourceun || id: ,vce(robust)

***M2 cooperation - Trade ***
mixed revcooptrade ib2.xb1##i.country c.ec_worry##i.country c.trust_MNC##i.country i.country##ib8.xsourcetrade || id: ,vce(robust)

***M3 reciprocity - UN ***
melogit relaxedrec1 ib2.xa1##i.country c.ec_worry##i.country c.trust_UN##i.country i.country##ib8.xsourceun || id: ,vce(robust)

***M4 reciprocity - Trade ***
melogit relaxedrec2 ib2.xb1##i.country c.ec_worry##i.country c.trust_MNC##i.country i.country##ib8.xsourcetrade || id: ,vce(robust)

*** Table-A-8 ***
use "Kiratli_Ertan 2022 - extraUS data.dta"

*** Table-A-8a ***
* US - UN vignette
mixed coopun ib3.xsignalun ec_worry ib8.xsourceun sex education age || id: ,vce(robust)

* US - Trade vignette
mixed revcooptrade ib3.xsignaltrade ec_worry ib8.xsourcetrade sex education age  || id: ,vce(robust)

*** Table-A-8b ***
* US - UN vignette
melogit relaxedrec1 ib2.xa1 ib3.ec_worry ib8.xsourceun age sex education  ||id: ,vce(robust)
melogit relaxedrec1 ib2.xa1##ib3.ec_worry ib8.xsourceun age sex education   ||id:,vce(robust)

* US - Trade vignette
melogit relaxedrec2 ib2.xb1 ib3.ec_worry ib8.xsourcetrade age sex education   ||id: ,vce(robust)
melogit relaxedrec2 ib2.xb1##ib3.ec_worry ib8.xsourcetrade age sex education   ||id: ,vce(robust)




